00100	BEGIN "TEST9"
00200		INTEGER ROW,COL,IMG;
00300		DEFINE ↓="(13&10)";
00400	
00500		STRING PROCEDURE N(INTEGER X);
00600			RETURN(((X%'200)+'100)&(X LAND '177));
00700	
00800		DEFINE Q="'177";
00900	
01000		OPEN(1,"DSK",0,0,2,0,0,0);
01100		ENTER(1,"XAP9",0);
01200	
01300		IMG ← 0;
01400	FOR ROW ← 0 STEP 1 UNTIL 2 DO
01500	FOR COL ← 0 STEP 1 UNTIL 2 DO
01600	BEGIN
01700		IMG ← IMG + 1;
01800		OUT(1,Q&"I"&N(40+COL*400)&N(40+ROW*400));
01900		OUT(1,Q&"⊗"&'20);
02000		OUT(1,"M"&CVS(IMG)&".PLT[1,LMM]"&↓);
02100	END;
02200	
02300		RELEASE(1);
02400	
02500	END "TEST9";